home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / WINDOWS / MSWLOG12.ARJ / POLY.LG < prev    next >
Text File  |  1990-06-11  |  140b  |  9 lines
  1. to poly :circumf :sides
  2. make "incr 360 / :sides
  3. make "ctr 0
  4. 10 fd :circumf
  5. lt :incr
  6. make "ctr :ctr + 1
  7. if :ctr < :sides [go 10]
  8. end
  9.